home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / editor / blksedtr.lha / BED / Rexx / CountWords.bed < prev    next >
Text File  |  1996-05-06  |  376b  |  30 lines
  1. /*
  2. ** $VER: CountWords.bed 1.0 (02.01.96)
  3. **
  4. ** Count the number of words in the document
  5. */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. SetDisplayLock ON
  10. SetInputLock ON
  11.  
  12. SetBookmark 0
  13. SetStatusBar "Counting..."
  14.  
  15. count = 0
  16. MoveSOF
  17.  
  18. DO UNTIL RC ~= 0
  19.     MoveNextWord
  20.     count = count + 1
  21. END
  22.  
  23. MoveBookmark 0
  24. ClearBookmark 0
  25.  
  26. SetDisplayLock OFF
  27. SetInputLock OFF
  28.  
  29. SetStatusBar "Counted " || count || " words"
  30.